| Filename | (eval 1048)[/usr/share/perl/5.10/CGI.pm:869] |
| Statements | Executed 20 statements in 37µs |
| Eval Invoked At | /usr/share/perl/5.10/CGI.pm line 869 |
| Sibling evals | 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23 |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 2 | 2 | 1 | 40µs | 104µs | CGI::delete |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 1 | package CGI; #### Method: delete | ||||
| 2 | # Deletes the named parameter entirely. | ||||
| 3 | #### | ||||
| 4 | # spent 104µs (40+64) within CGI::delete which was called 2 times, avg 52µs/call:
# once (25µs+42µs) by CGI::init at line 832 of CGI.pm
# once (15µs+21µs) by CGI::init at line 708 of CGI.pm | ||||
| 5 | 2 | 5µs | 2 | 6µs | my($self,@p) = self_or_default(@_); # spent 6µs making 2 calls to CGI::self_or_default, avg 3µs/call |
| 6 | 2 | 6µs | 2 | 32µs | my(@names) = rearrange([NAME],@p); # spent 32µs making 2 calls to CGI::Util::rearrange, avg 16µs/call |
| 7 | 2 | 1µs | my @to_delete = ref($names[0]) eq 'ARRAY' ? @$names[0] : @names; | ||
| 8 | 2 | 500ns | my %to_delete; | ||
| 9 | 2 | 2µs | for my $name (@to_delete) | ||
| 10 | { | ||||
| 11 | 2 | 2µs | CORE::delete $self->{param}{$name}; | ||
| 12 | 2 | 800ns | CORE::delete $self->{'.fieldnames'}->{$name}; | ||
| 13 | 2 | 4µs | $to_delete{$name}++; | ||
| 14 | } | ||||
| 15 | 2 | 7µs | 2 | 27µs | @{$self->{'.parameters'}}=grep { !exists($to_delete{$_}) } $self->param(); # spent 27µs making 2 calls to CGI::param, avg 13µs/call |
| 16 | 2 | 9µs | return; | ||
| 17 | } | ||||
| 18 | |||||
| 19 | ; |